home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 90 / 090.d81 / ml 201 boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  42 lines
  1. 100 ifpeek(56)<>32thenpoke56,32:clr
  2. 110 ifdvthen130
  3. 120 dv=peek(186):ifdv<8thendv=8
  4. 130 ifa=0thena=1:load"201 reader",dv,1
  5. 140 ifa=1thena=2:load"201 i-menu",dv,1
  6. 160 gosub270:poke51253,dv
  7. 164 r1$=" 1. [210]ead/[208]rint [205][204] 201               "
  8. 165 r2$=" 2. [210]ead/[208]rint [204]ab 201              "
  9. 166 r3$=" 3. [210]un [195][207][205][214][201][197][215]                     "
  10. 168 r5$=" 4. [210]eturn [212]o [204][207][193][196][211][212][193][210]              [146]"
  11. 170 sys49152,4,2,2,7,1,14,r1$,r2$,r3$,r5$
  12. 180 print""spc(12)"[204] [207][160][193] [196] [201] [206] [199] . . ."
  13. 185 s1$="16-[194][201][212] [205][193][212][200]/[213][211][201][206][199] [212][200][197][160][211][212][193][195][203]"
  14. 186 s2$="[201][206][212][210][207] [212][207][160][193][211][211][197][205][194][204][197][210][211]/[205][197][205][207][210][217][160][205][207][214][197]"
  15. 190 geta$:poke186,dv
  16. 192 ifa$="1"thensys51200,"t.ml 201",s1$:poke781,0:sys59903:goto170
  17. 195 ifa$="2"thensys51200,"t.lab 201",s2$:poke781,0:sys59903:goto170
  18. 200 ifa$="3"thenprint"[147]"chr$(142)"":poke56,160:clr:f$="comview"
  19. 220 ifa$="4"thenpoke56,160:clr:f$="hello connect":poke186,8
  20. 230 print"[144]":print""
  21. 240 print "load";chr$(34);f$;chr$(34)","peek(186)
  22. 250 print"run"
  23. 260 poke631,13:poke632,13:poke198,2:end
  24. 270 remifpeek(787)=119thenreturn
  25. 280 print"[147]":poke53280,0:poke53281,0
  26. 290 poke214,10:print"[145]";
  27. 300 print"[159][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][154][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";
  28. 310 fori=1to12:print"[159][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][154][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next:print""
  29. 320 fori=217to242:pokei,peek(i)or128:next
  30. 330 poke214,12:print"[145]"tab(2)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  31. 340 fori=1to7:printtab(2)"[155]                                    [146][223]":next
  32. 350 printtab(2)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][223]"
  33. 360 print"[169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][154][223]"
  34. 370 poke214,14:sys58732
  35. 380 fori=1to5:reada$
  36. 390 printspc(20-len(a$)/2)"[155]"a$:a$="":next
  37. 400 f$="myb boot":return
  38. 410 data"[205] [204][160] [160]2[160]0 1","by [210]ick [206]ash"
  39. 420 data"[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #90","[211]ubscriptions 1-800-831-2694"
  40. 430 data"[195]opyright ([195]) 1991 [211]oftdisk"
  41. 10000 save"@0:ml 201 boot"
  42.